SuperModels in the Rainforest/SuperModels in the Rainforest.iso/rain.dxr/00129.ls

Text File | 1995-10-13 | 601 b | 28 lines

on exitFrame
  global spriteloo
  if rollOver(3) then
    set the cursor of sprite 3 to [565, 566]
  end if
  go(the frame)
end

on keyDown
  set moviemovie to the castNum of sprite 3
  set the sound of cast moviemovie to 0
  if the keyCode = 123 then
    set the movieRate of sprite 3 to -1
  else
    if the keyCode = 124 then
      set the movieRate of sprite 3 to 1
    end if
  end if
end

on keyUp
  set moviemovie to the castNum of sprite 3
  set the sound of cast moviemovie to 0
  if ((the keyCode = 123) or (the keyCode = 124)) and 3 then
    set the movieRate of sprite 3 to 0
  end if
end